Sub GetExchangeRateFromNaver()
    Dim url As String
    Dim httpRequest As Object
    Dim htmlDoc As Object
    Dim exchangeRate As String
    
    ' 크롤링할 웹 페이지의 URL 설정
    url = "https://finance.naver.com/marketindex/exchangeList.nhn" ' 네이버 환율 페이지 URL
    
    ' HTTP 요청 객체 생성
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    httpRequest.Open "GET", url, False
    httpRequest.send
    
    ' HTTP 응답을 HTML 문서로 변환
    Set htmlDoc = CreateObject("HTMLFile")
    htmlDoc.body.innerHTML = httpRequest.responseText
    
    ' 원하는 환율 데이터 추출
    exchangeRate = htmlDoc.getElementsByClassName("value")(0).innerText ' 환율 데이터 추출 (첫 번째 데이터)
    
    ' 추출한 환율 데이터를 엑셀에 출력
    Range("A1").Value = "환율"
    Range("B1").Value = exchangeRate
    
    ' 객체 해제
    Set httpRequest = Nothing
    Set htmlDoc = Nothing
End Sub